﻿Imports System

Imports System.Data.Common

Namespace FundCenterParentTableAdapters
    Partial Public Class minGpathTableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As FundCenterParent.minGpathDataTable, ByVal SQLExpression As String, ByVal username As String, ByVal planyear As Short) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText += SQLExpression
                Return Me.Fill(dataTable, username, planyear)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = OriginalCommandText
            End Try
        End Function

    End Class

    Partial Public Class UserLikeGpathTableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As FundCenterParent.UserLikeGpathDataTable, ByVal SQLExpression As String) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText += SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = OriginalCommandText
            End Try
        End Function

    End Class

    Partial Public Class FctH2TableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As FundCenterParent.FctH2DataTable, ByVal SQLExpression As String) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = OriginalCommandText
            End Try
        End Function

    End Class
End Namespace
